home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / pause_w.sta < prev    next >
Text File  |  1995-03-23  |  2KB  |  43 lines
  1. Article 1349 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!usc!apple!portal!cup.portal.com!Jake-S
  3. From: Jake-S@cup.portal.com (Jake G Schwartz)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: HP48 Pause With Stack Display
  6. Message-ID: <34002@cup.portal.com>
  7. Date: 18 Sep 90 02:42:19 GMT
  8. Organization: The Portal System (TM)
  9. Lines: 30
  10.  
  11.  
  12.                HP48 Pause With Stack Display
  13.                -----------------------------
  14.  
  15.      After posing the question "How does one pause an HP48 program to 
  16. show the status of the stack display and resume execution?", nobody
  17. could produce a simple answer.  However after thinking about the 
  18. exotic ideas which I had received via Email, a solution was found.
  19. The following routine PAUSE halts a running program for a number of
  20. seconds specified in stack level 1, shows the stack and then resumes
  21. afterwards.  The procedure halts the program, sets a control alarm to
  22. execute a CONT n seconds after the alarm is set and stops.  The alarm 
  23. then wakes up the program and resumes from there.  For instance, the
  24. program
  25.  
  26.        << 1  2  3  PAUSE  4  5  >>
  27.  
  28.         will start up, pause for 3 seconds displaying 1 and 2 on the 
  29. stack, then resume and end up with 1,2,4 and 5 on the stack.  The
  30. routine PAUSE is shown below.
  31.  
  32.  
  33. %%HP: T(3)A(D)F(.);
  34. << DATE TIME ROT 10000 / HMS+ { } + +    @get date, time+#seconds in stack
  35.    { \<< DELALARM CONT  \>> } +          @build control alarm to do a CONT
  36.    STOALARM DROP HALT                    @set alarm, drop alarm # and halt
  37. \>>
  38.  
  39.  
  40. Jake Schwartz
  41.  
  42.  
  43.